This command will deactivate the influence of global collision.

SET GLOBAL COLLISION OFF

This command does not return a value.

No 3D objects will be able to detect collisions with each other, whether those objects have individually active collision or not.

sync on : sync rate 60 : hide mouse:cls 0

autocam off

ObjectNumber=1

SecondObject=2

make object sphere ObjectNumber,10

color object ObjectNumber,rgb(0,255,0)

position object ObjectNumber, 0,0,0

make object cone secondObject,10

xrotate object secondObject,90

fix object pivot secondObject

color object SecondObject,rgb(255,0,0)

position object SecondObject, 15,0,0

AUTOMATIC OBJECT COLLISION ObjectNumber,5,1

AUTOMATIC OBJECT COLLISION SecondObject,5,1

while mouseclick()=0

set cursor 0,0

print "1=collision on"

if inkey$()="1" then set global collision on

print "2=collision off"

if inkey$()="2"then set global collision off

if leftkey()=1 then turn object left SecondObject,1

if rightkey()=1 then turn object right SecondObject,1

if upkey()=1 and OBJECT HIT(SecondObject,0)=0 then move object SecondObject,1

if downkey()=1 and OBJECT HIT(SecondObject,0)=0 then move object SecondObject,-1

if returnkey()=1 then position object SecondObject,15,0,0

position camera object position x(SecondObject),object position y(SecondObject)+50,object position z(SecondObject)

point camera object position x(SecondObject),0,object position z(SecondObject)

sync

endwhile

delete object ObjectNumber

delete object SecondObject

end

BASIC3D Commands Menu
Index